home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
diz2153.zip
/
PROUT1.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-04-03
|
2KB
|
72 lines
@echo off
proecho %3 ~∙ Testing: %2~
didtest %2 %PCBDRIVE%%PCBDIR%\DIDTEST.LOG
if errorlevel==1 goto end
goto start
rem -- ╒════════════════════════════════════════════════╕
rem -- │ Process a single upload file - for ProDoor │
rem -- │ Passed Parameters: │
rem -- │ ■ %1 Log File │
rem -- │ ■ %2 File to Test │
rem -- │ ■ %3 COM Port │
rem -- │ ■ %4 Conference Number │
rem -- │ ■ %5 Play Directory │
rem -- │ ■ %6 PCB Directory │
rem -- ╘════════════════════════════════════════════════╛
:start
rem -- ** These commands only work when running under 4DOS!
if %@ext[%2] == gif goto gif
if %@ext[%2] == zip goto zip
if %@ext[%2] == arj goto arj
if %@ext[%2] == lzh goto lzh
goto end
:gif
giftest %2 /A/B:3/D/E/F:%PCBDRIVE%%PCBDIR%\$DOOR.NAM/L/M:321x201x16/P:%3
goto end
:lzh
proecho %3 ∙ CRC Test...
c:\utility\lharc t %2
if errorlevel 1 goto err
proecho %3 Passed!~
proecho %3 ∙ Checking for FILE_ID.DIZ...
diz-2 diz-2.cnf %2 %PCBDRIVE%%PCBDIR%\$door.nam %PCBNODE%
if errorlevel==29 proecho %3 Found!~
if errorlevel==0 proecho %3 Not Found!~
goto end
:arj
proecho %3 ∙ CRC Test...
c:\utility\arj t %2
if errorlevel 1 goto err
proecho %3 Passed!~
proecho %3 ∙ Checking for FILE_ID.DIZ...
diz-2 diz-2.cnf %2 %PCBDRIVE%%PCBDIR%\$door.nam %PCBNODE%
if errorlevel==29 proecho %3 Found!~
if errorlevel==0 proecho %3 Not Found!~
goto end
:zip
proecho %3 ∙ CRC Test...
c:\utility\pkunZIP -t %2
if errorlevel 1 goto err
proecho %3 Passed!~
proecho %3 ∙ Checking for FILE_ID.DIZ...
diz-2 diz-2.cnf %2 %PCBDRIVE%%PCBDIR%\$door.nam %PCBNODE%
if errorlevel==29 proecho %3 Found!~
if errorlevel==0 proecho %3 Not Found!~
rem ** if registered add zip comment => recom -c c:\diz-2\diz2-c.%PCBNODE%
goto end
:err
proecho %3 Failed!~
proecho %3 ~Moving Offline for the SysOp to check.~
move %2 c:\reject
goto end
:end